home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Visual Database / Visual Foxpro 6.0 (Ent. Edition) / Vf6ent Extractor.EXE / TOOLS / XSOURCE / XSOURCE.ZIP / vfpsource / wizards / Wzapp / wzastart.PRG < prev   
Encoding:
Text File  |  1998-05-01  |  1.8 KB  |  67 lines
  1. * This is the stub which you should copy (place the modified version in
  2. * your Wizard's directory), rename, and modify to call your wizard.
  3.  
  4. PARAMETER cOutFileVarName, p2, p3, p4, p5, p6, p7, p8, p9
  5. LOCAL cClassLib,cProcs,cWizardToRun
  6.  
  7. m.cClassLib = set('classlib')
  8.  
  9. *  Parm checking
  10. IF TYPE("m.p2") #"C"
  11.     m.p2 = ""
  12. ENDIF
  13.  
  14. * Handle AUTOFORM case here
  15. IF "AUTOFORM" $ UPPER(m.p2)
  16.     cProcs = set('procedure')
  17.     SET PROCEDURE TO wzengine
  18.     SET PROCEDURE TO wzapp ADDITIVE
  19.     oWizard=create('GenerateApplication')
  20.     IF !EMPTY(m.cOutFileVarName)    && output file name provided
  21.         oWizard.cOutFile = m.cOutFileVarName
  22.     ENDIF
  23.     oWizard.autoform
  24.     m.cOutFileVarName = oWizard.cOutFile
  25.     RELEASE oWizard
  26.     SET PROCEDURE TO &cProcs
  27.     RETURN
  28. ENDIF
  29.  
  30. m.cWizardToRun = "applicationwizard"        && Application wizard
  31.  
  32. SET CLASSLIB TO wzapp ADDITIVE
  33. set CLASSLIB TO WIZARD ADDITIVE
  34.  
  35. * The name "oWizard" is used in automated testing and should *NOT* be changed.
  36. public oWizard
  37. oWizard = createobj(m.cWizardToRun,m.cOutFileVarName, m.p2, m.p3, m.p4, ;
  38.     m.p5, m.p6, m.p7, m.p8, m.p9)
  39.     
  40. if type('oWizard') = 'O' .and. .not. isnull(oWizard)
  41.     oEngine.aEnvironment[17,1] = m.cClassLib
  42.     oWizard.Show
  43. endif
  44. if type('oWizard') = 'O' .and. .not. isnull(oWizard)
  45.     * It must be modeless, so leave it alone
  46. else
  47.     release oWizard
  48. endif
  49. IF ATC("\wzapp.vcx",SET("CLASSLIB"))>0
  50.     RELEASE CLASSLIB wzapp
  51. ENDIF
  52. IF ATC("\wizard.vcx",SET("CLASSLIB"))>0
  53.     RELEASE CLASSLIB WIZARD
  54. ENDIF
  55.  
  56.  
  57. PROCEDURE dummy
  58.     * This routine is used to resolve Project array references.
  59.     public aflddata[1],afielddata[1],atmpglobals,awizfields,aparms
  60.     public aflddata[1],aglobals[1],aafielddata[1],atmpglobals[1]
  61.     public awizfields[1],aparms[1]
  62. ENDPROC
  63.  
  64. PROCEDURE fxsettype
  65.     PARAMETER p1, p2, p3
  66.     *This resolves Mac FOXTOOLS reference
  67. ENDPROC